home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8502b.d64 / listing 27 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  33 lines
  1. 60000 REM *****************************
  2. 60001 REM G R A F I K - D E S I G N E R
  3. 60002 REM *****************************
  4. 60003 DATA"","","[159]","[156]","","","[158]","[129]","[149]","[150]","[151]","[152]","[153]","[154]","[155]"
  5. 60004 DIMZ$(25):I=1024:DIMY$(15):FORI4=1TO15:READY$(I4):NEXTI4
  6. 60005 IFPEEK(I)=0THENA=I+1:GOTO60008
  7. 60006 IFI>2023THEN60011
  8. 60007 I=I+1:GOTO60005
  9. 60008 FORI=ATOA+38:IFPEEK(I)=0THENB=I-1
  10. 60009 NEXT:FORI=A-1+40TO2023STEP40:IFPEEK(I)=0THENC=I+1
  11. 60010 NEXT
  12. 60011 AB=B-A:D=C+AB:IFA=0ORB=0ORC=0ORD=0THENPRINT"?ILLEGAL SIZE  ERROR":END
  13. 60012 FA=PEEK(53280)
  14. 60013 IFFA>15THENFA=FA-16:GOTO60013
  15. 60014 FORI1=ATOCSTEP40:Z$="?"+CHR$(34):FORI=I1TOI1+AB:X=PEEK(I):CL=PEEK(I+54272)
  16. 60015 IFCL>15THENCL=CL-16:GOTO60015
  17. 60016 IFRV=2ANDX<128THENRV=3
  18. 60017 IFX>127ANDRV=0THENRV=1
  19. 60018 IFRV=1ORRV=2THENX=X-128
  20. 60019 IFX>63ANDX<96THENX=X+32:GOTO60023
  21. 60020 IFX>96ANDX<128THENX=X+64:GOTO60023
  22. 60021 IFX>0 ANDX<32THENX=X+64:GOTO60023
  23. 60022 IFX>=32ANDX<64THENX=X
  24. 60023 IFFA=CLTHEN60027
  25. 60024 FA=CL:IFFA=0THENZ$=Z$+"[144]"
  26. 60025 FORI2=1TO15:IFFA=I2THENZ$=Z$+Y$(I2)
  27. 60026 NEXTI2
  28. 60027 IFRV=1THENZ$=Z$+"":RV=2
  29. 60028 IFRV=3THENZ$=Z$+"[146]":RV=0
  30. 60029 Z$=Z$+CHR$(X):NEXTI:Z$=Z$+CHR$(34):Z$(AN)=Z$:Z$="":AN=AN+1:RV=0:NEXTI1
  31. 60030 INPUT"[147]AB WELCHER ZEILE ";ZN:IFZN<0ORZN>63000THEN60030
  32. 60031 PRINT"[147]":FORI=0TO(C-A)/40:PRINTZN+I;Z$(I):NEXT:PRINT"";:END
  33.